rename entry block

diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index e3cb868438605e76384e1e57104b14bc19e06d4f..fe5a0694eeac5b3bfca7b13f45a1926f0dc31baa 100644 (file)
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -291,7 +291,7 @@ VAL is known at compile time."
                       :frame (comp-limple-frame-new-frame frame-size)))
          (comp-limple ()))
     ;; Prologue
-    (comp-push-block 'prologue)
+    (comp-push-block 'entry)
     (cl-loop for i below (comp-args-mandatory (comp-func-args func))
              do (progn
                   (cl-incf (comp-sp))